home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / PROGRAM / BPAS9.ARJ / WHILEBOO.PAS < prev    next >
Pascal/Delphi Source File  |  1990-05-26  |  281b  |  15 lines
  1. PROGRAM WhileBoolean;
  2. VAR
  3.   Counter  :  Integer;
  4.   Done     :  Boolean;
  5. BEGIN
  6.   Writeln( 'While Boolean' );
  7.   Counter := 1;
  8.   Done    := False;
  9.   WHILE NOT Done DO
  10.   BEGIN
  11.     Writeln( Counter );
  12.     Counter  := Succ( Counter )
  13.     Done := (Counter > 10);
  14.   END
  15. END.